home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / PWAPCP02.ZIP / TURBO110 / TURBO.PPD < prev    next >
Encoding:
Text File  |  1995-11-15  |  4.5 KB  |  214 lines
  1. ;------------------------------------------------------------------------------
  2. ;PCBoard Programming Language Decompiler 3.00  (C)1994-95 Chicken / Tools4Fools
  3. ;------------------------------------------------------------------------------
  4. ;
  5. ;PCBoard Programming Language Executable 3.10 detected.
  6. ;
  7. ;Source Code:
  8. ;------------------------------------------------------------------------------
  9.  
  10.     INTEGER    VAR001
  11.     STRING     VAR002
  12.     STRING     VAR003
  13.     STRING     VAR004
  14.     DECLARE PROCEDURE PROC001()
  15.     DECLARE FUNCTION FUNC001(STRING LOC001) BOOLEAN
  16.     DECLARE PROCEDURE PROC002(SWORD LOC001,SWORD LOC002,SWORD LOC003)
  17.     STRING     VAR005
  18.     BOOLEAN    VAR006
  19.     SWORD      VAR007
  20.     STRING     VAR008
  21.     STRING     VAR009
  22.     STRING     VAR010
  23.     STRING     VAR011
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     LET VAR002=READLINE(PCBDAT(),94)
  28.     LET VAR001=LEN(VAR002)/12
  29.     LET VAR003=STRING(ASC(MID(VAR002,VAR001,3)))+STRING(ASC(RIGHT(VAR002,3)))+STRING(ASC(MID(VAR002,8,9)))
  30.     FOPEN 1,PPEPATH()+"KEY.CFG",O_RD,S_DN
  31.     FGET 1,VAR004
  32.     FCLOSE 1
  33.     ;IF (VAR003<>VAR004) GOTO LABEL000
  34.     ;IF (VAR003=VAR004) GOTO LABEL001
  35.     GOTO LABEL001
  36.  
  37. :LABEL001
  38.     GOTO LABEL002
  39.  
  40. :LABEL002
  41.     PROC001()
  42.     LET VAR006=FUNC001(READLINE(VAR005,8))
  43.     IF (!(VAR006=0)) GOTO LABEL003
  44.     GOTO LABEL015
  45.  
  46. :LABEL003
  47.     END 
  48.  
  49.  
  50. FUNCTION FUNC001(STRING LOC001) BOOLEAN
  51.  
  52.     STRING     LOC002
  53.     SWORD      LOC003
  54.     SWORD      LOC004
  55.     SWORD      LOC005
  56.     BOOLEAN    LOC006
  57.  
  58.     PRINT LOC001
  59.     LET LOC003=GETX()
  60.     PRINT VAR008+SPACE(VAR007)
  61.     LET LOC004=GETX()
  62.     PRINT VAR010
  63.     LET LOC005=1
  64.     PROC002(LOC005,LOC003,LOC004)
  65.     LET LOC006=0
  66.  
  67. :LABEL004
  68.     IF (!(LOC006=0)) GOTO LABEL010
  69.     LET LOC002=ASC(INKEY())
  70.     IF (!(LOC002=13)) GOTO LABEL005
  71.     LET LOC006=1
  72.     GOTO LABEL009
  73.  
  74. :LABEL005
  75.     IF (!(((LOC002=76)|(LOC002=68))|(LOC002=44))) GOTO LABEL006
  76.     DEC LOC005
  77.     IF (LOC005<1) LET LOC005=2
  78.     PROC002(LOC005,LOC003,LOC004)
  79.     GOTO LABEL009
  80.  
  81. :LABEL006
  82.     IF (!(((LOC002=82)|(LOC002=85))|(LOC002=46))) GOTO LABEL007
  83.     INC LOC005
  84.     IF (LOC005>2) LET LOC005=1
  85.     PROC002(LOC005,LOC003,LOC004)
  86.     GOTO LABEL009
  87.  
  88. :LABEL007
  89.     IF (!((LOC002=89)|(LOC002=121))) GOTO LABEL008
  90.     LET LOC005=2
  91.     PROC002(LOC005,LOC003,LOC004)
  92.     LET LOC006=1
  93.     GOTO LABEL009
  94.  
  95. :LABEL008
  96.     IF (!((LOC002=78)|(LOC002=110))) GOTO LABEL009
  97.     LET LOC005=1
  98.     PROC002(LOC005,LOC003,LOC004)
  99.     LET LOC006=1
  100.  
  101. :LABEL009
  102.     GOTO LABEL004
  103.  
  104. :LABEL010
  105.     NEWLINE 
  106.     IF (!(LOC005=1)) GOTO LABEL011
  107.     LET FUNC001=0
  108.     GOTO LABEL012
  109.  
  110. :LABEL011
  111.     LET FUNC001=1
  112.     DISPFILE PPEPATH()+"FAST",CURSEC()
  113.  
  114. :LABEL012
  115.     ENDFUNC 
  116.  
  117.  
  118. PROCEDURE PROC002(SWORD LOC001,SWORD LOC002,SWORD LOC003)
  119.  
  120.     IF (!(LOC001=2)) GOTO LABEL013
  121.     PRINT CHR(13)
  122.     FORWARD LOC002-1
  123.     PRINT VAR008
  124.     PRINT CHR(13)
  125.     FORWARD LOC003-1
  126.     PRINT VAR011
  127.     GOTO LABEL014
  128.  
  129. :LABEL013
  130.     IF (!(LOC001=1)) GOTO LABEL014
  131.     PRINT CHR(13)
  132.     FORWARD LOC003-1
  133.     PRINT VAR010
  134.     PRINT CHR(13)
  135.     FORWARD LOC002-1
  136.     PRINT VAR009
  137.  
  138. :LABEL014
  139.     ENDPROC 
  140.  
  141.  
  142. PROCEDURE PROC001()
  143.  
  144.  
  145.     GETUSER 
  146.     LET VAR005=PPEPATH()+"TURBO.CFG"
  147.     LET VAR007=S2I(READLINE(VAR005,3),10)
  148.     LET VAR008=READLINE(VAR005,4)
  149.     LET VAR009=READLINE(VAR005,5)
  150.     LET VAR010=READLINE(VAR005,6)
  151.     LET VAR011=READLINE(VAR005,7)
  152.     ENDPROC 
  153.  
  154.  
  155. :LABEL015
  156.     NEWLINE 
  157.     DISPFILE PPEPATH()+"SLOW",CURSEC()
  158.     END 
  159.  
  160.  
  161. ;------------------------------------------------------------------------------
  162. ;Statements used:
  163. ;
  164. ;     2 END
  165. ;    21 GOTO
  166. ;    24 LET
  167. ;    11 PRINT
  168. ;     2 PRINTLN
  169. ;    14 IF
  170. ;     2 DISPFILE
  171. ;     1 FOPEN
  172. ;     1 FCLOSE
  173. ;     1 FGET
  174. ;     1 GETUSER
  175. ;     1 DELAY
  176. ;     1 INC
  177. ;     1 DEC
  178. ;     2 NEWLINE
  179. ;     4 FORWARD
  180. ;     6 PROC
  181. ;     2 ENDPROC
  182. ;     1 ENDFUNC
  183. ;
  184. ;Functions used:
  185. ;
  186. ;     1 *
  187. ;     1 /
  188. ;     7 +
  189. ;     4 -
  190. ;    17 =
  191. ;     1 <>
  192. ;     1 <
  193. ;     1 >
  194. ;    10 !
  195. ;     6 |
  196. ;     1 LEN
  197. ;     2 MID
  198. ;     1 RIGHT
  199. ;     1 SPACE
  200. ;     4 CHR
  201. ;     4 ASC
  202. ;     1 INKEY
  203. ;     3 STRING
  204. ;     1 PCBDAT
  205. ;     4 PPEPATH
  206. ;     7 READLINE
  207. ;     2 CURSEC
  208. ;     1 S2I
  209. ;     2 GETX
  210. ;
  211. ;------------------------------------------------------------------------------
  212. ;Thank you for using PPLD              T4F - We Create Your Needs Of Tommorow !
  213. ;------------------------------------------------------------------------------
  214.